100 POKE53280,6:POKE53281,6:PRINTCHR$(147);CHR$(142);CHR$(8)
110 GOSUB 55000
400 DIM A$(47):FORI=1TO47:READA$(I):NEXT
450 IF PEEK(2)>0 THEN 600
500 PRINT"[147]":PRINT" GESCHWINDIGKEIT "
510 PRINT"  -1-  40 BPM"
520 PRINT"  -2-  50 BPM"
530 PRINT"  -3-  60 BPM"
540 PRINT"  -4-  90 BPM"
550 PRINT"  -5-  140 BPM"
560 PRINT" BITTE WAEHLEN SIE "
561 PRINT"":FOR I=1 TO (6-G)*2+1:PRINT:NEXT:PRINT"X"
570 GETA$:IF(A$<"1" OR A$>"5")AND A$<>CHR$(13) THEN 570
575 IF A$=CHR$(13) THEN 600
580 POKE2,(6-VAL(A$))
600 PRINT"[147]        MORSETRAINER         "
601 TA=1
602 PRINT"-1-  TRAINING"
603 PRINT"-2-  UMSETZUNG"
604 PRINT"-3-  SIMULTAN"
605 PRINT"-4-  GESCHWINDIGKEIT"
606 PRINT"-5-  ENDE"
610 PRINT"      BITTE WAEHLEN SIE      "
615 MO=0:G=PEEK(2)
620 GETA$:IF A$<"1" OR A$>"5" THEN 620
625 IF A$="5" THEN END
630 IF A$="4"THEN500
640 IF A$="3" THEN 4000
650 IF A$="1" THEN TA=0:GOTO3000
660 IF A$="2" THEN INPUT "[147]TEXT: ";A$:RP=0:INPUT"WIEDERHOLUNGEN";RP:RP=RP+1
1000 REM
1005 FORH=1TORP:IFTA THEN PRINTCHR$(13)
1007 FOR K=1TO LEN(A$)
1010 B$=MID$(A$,K,1)
1020 B=ASC(B$):B=B-43:IFB<1 OR B>47 THEN B$="":GOTO1040
1030 B$=A$(B)
1040 IFB$=""THENFORJ=1TOG*10:NEXTJ:GOTO1100
1050 FORJ=1TOLEN(B$)
1060 ON VAL(MID$(B$,J,1)) GOTO 1070,1080
1070 ZZ=G*20:GOSUB 55100:IFTATHENPRINT".";
1075 GOTO1090
1080 ZZ=G*60:GOSUB55100:IF TATHENPRINT"-";
1090 NEXTJ
1100 FORJ=1TO(G-1)*30:NEXTJ:IFTATHENPRINT"[146] ";
1105 IF MO<>1 AND MX<>1 THEN NEXT:NEXT
1110 FORJ=1 TO (G-1)*30:IFTATHENPRINT"[146] ";
1115 IFAF=1THENRETURN
1120 IF MO=1 THEN RETURN
1130 IFTATHENGETX$:IFX$=""THEN1130
1140 RUN
2000 A$=D$:PRINTD$;:IFD$="*"THEN500
2020 IFD$=""THENA$=" "
2030 RETURN
3000 AF=1:PRINTCHR$(147):PRINT"    MORSETRAINING    "
3010 PRINT"ASCII-ZEICHENBEREICH:"
3012 INPUT"VON";A1:INPUT"BIS";A2
3015 IF A1<44 OR A2<44 OR A1>91 OR A2>91 OR A1>A2 THEN3000
3020 FOR I=1 TO 10
3030 T$(I)="":FORJ=1TO5:T$(I)=T$(I)+CHR$(A1+INT(RND(0)*(A2-A1)+.5)):NEXT:NEXT
3040 A$="":FORI=1TO10:A$=A$+T$(I)+" ":NEXT:RP=1
3050 PRINT"OK?[160]"
3053 GETA$:IFA$=""THEN3053
3070 PRINTCHR$(147):FORI=1TO10:A$=T$(I):GOSUB1000
3080 PRINT"GRUPPE"I;:INPUTD$(I):NEXT
3090 PRINT"[147]":K=0:PRINT"GRUPPE","GEGEBEN","EMPFANGEN","FEHLER"
3100 F=0:FORI=1TO10:PRINTI,T$(I),D$(I),:S=5
3105 FORJ=1TO5:IFMID$(T$(I),J,1)=MID$(D$(I),J,1)THENS=S-1
3110 NEXT:PRINTS:F=F+S:NEXT
3120 PRINT"FEHLER GESAMT:"F
3125 PRINT"W[146]EITER ODER ZUM M[146]ENUE?"
3130 GETA$:IFA$<>"W"ANDA$<>"M"THEN3130
3140 IF A$="W" THEN 3000
3150 AF=0:GOTO 600
4000 PRINT"[147]":PRINT"SIMULTANUEBERSETZUNG:    ENDE MIT * [146]"
4001 PRINT"EINGABE DES TEXTES:"
4002 TA=0
4004 GETD$:IFD$=""THEN4004
4005 IF D$="*"THEN 600
4006 IF PEEK(198)>6 THEN POKE53281,1
4007 IF PEEK(198)<3 THEN POKE53281,6
4010 GOSUB 2000:MO=1
4020 GOSUB 1000:GOTO4004
10000 DATA "221122","21112","121212","21121","22222","12222"
10010 DATA "11222","11122","11112","11111","21111","22111"
10020 DATA "22211","22221","222111","","",""
10030 DATA "","112211","","12","2111","2121"
10040 DATA "211","1","1121","221","1111","11"
10050 DATA "1222","212","1211","22","21","222"
10060 DATA "1221","2212","121","111","2","112"
10070 DATA "1112","122","2112","2122","2211"
50000 END
55000 POKE54295,0:POKE54276,0:POKE54273,0:POKE54296,15
55005 POKE54277,21:POKE54278,160
55010 RETURN
55100 POKE54276,33
55110 POKE54273,70:FORW=1TOZZ:NEXT
55120 POKE54276,0
55130 RETURN